home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
comm2
/
unpacknl.lha
/
UnPackNL.rexx
Wrap
OS/2 REXX Batch file
|
1996-05-04
|
892b
|
57 lines
/* Nodelist-Update.rexx
by Rene Laederach, 2:301/133@fidonet
mussi@snoop.alphanet.ch
Uses TrapList, automatically unpack your nodelist
For users of SkyTick
*/
OPTIONS RESULTS
unlha = "lha x "||filename
unzip = "unzip "||filename
unarc = "arc -e"||filename
ARG filename .
IF ~EXISTS(filename) THEN DO
SAY "The file "||filename||" does not exist."
EXIT 5
END
extension = translate(right(filename, 4) , xrange('a','z'), xrange('A','Z'))
say extension
expack = right(left(extension, 2),1)
if expack=="a" THEN DO
upackcmd = "c:arc -e "||filename
END
if expack=="l" THEN DO
upackcmd = "c:lha x "||filename
END
if expack=="z" THEN DO
upackcmd = "c:unzip "||filename
END
SAY upackcmd
PRAGMA(DIRECTORY,"nodelist:")
say pragma(directory)
cpack = GETCLIP(upackcmd)
ADDRESS command upackcmd
ADDRESS COMMAND "ums:bin/TrapList"
EXIT 0